perm filename COS[M11,LCS] blob sn#414636 filedate 1979-01-30 generic text, type T, neo UTF8
SRT=12800;
INS 0 1; <  INSTRUMENT 1 
SIMP
;
COS P4 FP3 B2 P5;
<OPT P4 P3 B2 F2 ;
OUT B2 B1;END; <  ALL PARAM NUMS ARE 2 LESS THAN IN BOOK!   
GEN 0 2 1    1  1;  <SINE WAVE  F1
 
  < SINE .SCR  --  RANDOM NUMBER=     1
 PLAY;
 SIMP     0.000    .1     A      450.0   F1
;PRINT P1;< SIMP    1
SIMP .1,, EF*4;
 FINISH; < SINE .SCR